home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Selection / Multimedia Selection Volume One - CD-ROM / MULTIMEDIA SELECTION____________.ISO / grafica / dos / theimage / demo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-30  |  804 b   |  26 lines
  1.  
  2. PROGRAM Demo;
  3.  
  4. { Sample demo program on how to use TheImage and TheDraw }
  5.  
  6. uses
  7.   CRT,                                          { TP standard unit }
  8.   TheDraw,                                      { the uncrunch procedure }
  9.   Demo_Img;                                     { the image data }
  10.  
  11. var
  12.   Video_Addr : word;                            { video memory pointer }
  13.  
  14. BEGIN { Demo.PAS }
  15.   if ((Mem[$0040:$0010] and $30) = $30) then    { is it color or mono ? }
  16.     Video_Addr := $B000                         { monochrome address }
  17.   else
  18.     Video_Addr := $B800;                        { color address }
  19.  
  20.   UnCrunch(Addr(ImageData)^,Mem[Video_Addr:$0000],ImageData_Length);
  21.  
  22.   GoToXY(1,24);                                 { put the cursor in line #24 }
  23. END. { Demo.PAS }
  24.  
  25.  
  26.